home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_387 / megafish / tools / mf-rexxscripts / goldfish.mfish < prev    next >
Text File  |  1995-07-15  |  4KB  |  90 lines
  1. /*$VER: GoldFish.MFISH v0.3 (W) Stephan Bülling
  2.  
  3.  GoldFish.MFISH  - (W)1993-1994 Stephan Bülling
  4.                  - (C)1993-1995 Mega/Soft Ltd.
  5.  
  6. */
  7.  
  8. ver="GoldFish v0.3";OPTIONS RESULTS;SIGNAL ON Break_C;
  9. cr=d2c(13)||d2c(10);'WaitForPort MFISH';ADDRESS 'MFISH';NL = '0a'x;
  10. /* checken*/
  11. /*|||*/
  12. if show('library','rexxreqtools.library') = 0 then do
  13.   call addlib("rexxreqtools.library", 0, -30, 0);end
  14. if ~Show(P,'MFISH') then do
  15.     Say cr||cr||"GoldFish.mfish (w) 1994 Stephan Bülling"||cr
  16.     Say "MegaFish muß zuerst gestartet werden!"||cr
  17.     options PROMPT "Ende mit <RETURN>";pull it;exit;end
  18. /*|||*/
  19. /*|||*/Anfang:
  20. ans1=rtezrequest(center(""ver"",60)||NL||,
  21.                  center("(C)1993-1995 Mega/Soft Ltd.",40)||NL||,
  22.                  center("(W)1993-1994 Stephan Bülling",40),"_Start|_About",""ver"");
  23. IF Ans1= 1 then call start;IF Ans2= 2 then call Werbung;Werbung:
  24. Ans=DUMMMY=rtezrequest(center(""VER"",70)||NL||,
  25.            center(" (W)1993-1994 Stephan Bülling ",50)||NL||,
  26.            center(" (C)1993-1995 Mega/Soft Ltd.",50)||NL||,
  27.            center("",50)||NL||,
  28.            center(" EMail: rubberduck@blanker.ruhr.de",50)||NL||,
  29.            center(" Dieses Programm ist PMWare (Brief-Ware)",50)||NL||,
  30.            CENTER(" ",70),"_Weiter",""VER"");call anfang
  31. /*|||*/
  32. /*|||*/start:
  33. IF EXISTS("GoldFish1-Apr94:") THEN DO
  34. ADDRESS COMMAND "ASSIGN BBS: CD0:BBS";CALL Entpacken;END;ELSE;EXIT;END
  35. /*|||*/
  36. /*|||*/ Entpacken:
  37. STATUS MARK;marki=RESULT;QUERY NAME;nam=RESULT;
  38. IF marki = "0" Then call nix
  39. mar1=rtezrequest("Du hast ( "marki" ) Programme markiert"||NL||,
  40.                  "Was möchtest du machen ?"||NL||,
  41.                  "Alle markierten Einträge bearbeiten"||NL||,
  42.                  "Oder Aktuellen Eintrag ( "nam" )"||NL||,
  43.                  "bearbeitten ?","_Mark|_Aktuell",""ver" (W) Stephan Bülling '94")
  44. IF mar1= 1 then;call mark;else;CALL nix
  45.  
  46. mark:;ADDRESS 'MFISH';GOTO TOP;NEXT MARK;CALL nix;
  47. nix:;QUERY DISK;DD=RESULT;QUERY NAME;nam=RESULT;
  48. dirname = rtfilerequest(, ,"Wähle Directory für "nam"", ,,
  49.                     "rtfi_flags = freqf_nofiles")
  50. if rtresult == 0 then;CALL BREAK_C
  51. else;IF dirname="Ram Disk:" then do;dirname="RAM:";END;
  52. diskn:;IF dd ~>"99" THEN;Y=0;ELSE
  53. IF dd ~>"199" THEN;Y=1;ELSE;IF dd ~>"299" THEN;Y=2;ELSE
  54. IF dd ~>"399" THEN;Y=3;ELSE;IF dd ~>"499" THEN;Y=4;ELSE
  55. IF dd ~>"599" THEN;Y=5;ELSE;IF dd ~>"699" THEN;Y=6;ELSE
  56. IF dd ~>"799" THEN;Y=7;ELSE;IF dd ~>"899" THEN;Y=8;ELSE
  57. IF dd ~>"999" THEN;Y=9;ELSE;IF dd ~>"1000" THEN;Y=10
  58. was1=rtezrequest(center("Programm : "nam"",40)|| NL ||center("Was soll ich da mit machen ",40),"_Entpacken|_Kopieren",""ver" © Stephan Bülling '94");
  59. IF was1= 1 then call unpack;
  60. IF was2= 2 then call pack;
  61. /*|||*/
  62. /*|||*/pack:
  63.   IF dd ~>"9" THEN DO;ADDRESS COMMAND
  64.  "c:copy BBS:d"y"xx/d00"dd"/"nam".lha "dirname"";CALL BREAK_C
  65.  END;ELSE DO;IF dd ~>"99" THEN DO;ADDRESS COMMAND
  66.  "c:copy BBS:d"y"xx/d0"dd"/"nam".lha "dirname""
  67.  CALL BREAK_C;END;ELSE DO;IF dd ~>"1000" THEN DO;ADDRESS COMMAND
  68.  "c:copy BBS:d"y"xx/d"dd"/"nam".lha "dirname""
  69. IF mar1="1" then CALL markierung;else;call break_C;end
  70. /*|||*/
  71. /*|||*/unpack:
  72.  SAY cr||" Entpacke das Programm "nam" von Diskette #"dd" ins "dirname""||cr
  73.  IF dd ~>"9" THEN DO;ADDRESS COMMAND
  74.  "c:Lha -x -m -Qd x BBS:d"y"xx/d00"dd"/"nam".lha "dirname""
  75.  END;ELSE DO;IF dd ~>"99" THEN DO; ADDRESS COMMAND 
  76.  "c:Lha -x -m -Qd x BBS:d"y"xx/d0"dd"/"nam".lha "dirname""
  77.  END;ELSE DO;IF dd ~>"1000" THEN DO;ADDRESS COMMAND
  78.  "c:Lha -x -m -Qd x BBS:d"y"xx/d"dd"/"nam".lha "dirname""
  79. IF mar1="1" then CALL markierung;ELSE;CALL BREAK_C;END;END;END;END;
  80. /*|||*/
  81. /*|||*/markierung:
  82. ADDRESS 'MFISH';STATUS MARK;marki=RESULT;
  83. DO FOR marki;NEXT MARK;IF RC="5" then CALL BREAK_C;ELSE;DROP nam dd;QUERY DISK;
  84. DD=RESULT;QUERY NAME;nam=RESULT;CALL DISKN;GOTO TOP;END
  85. /*|||*/
  86. /*|||*/Break_C:
  87.   ADDRESS COMMAND "ASSIGN  BBS: ";ADDRESS 'MFISH';EXIT
  88. /*|||*/
  89.  
  90.